Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/tbbs/prgsourc.zip/HOMES.ZIP/SEARCH.PRG

Text File | 1996-01-12 | 4KB | 129 lines

PARAMETERS md

SELECT d

PRIVATE cnt
DECLARE aa[17]

SEEK hu
IF .NOT. Found()
    SEEK "default"
    aa[4]=pmax
    aa[5]=sub
    aa[6]=design
    aa[8]=smin
    aa[9]=lmin
    aa[10]=bedmin
    aa[11]=batmin
    aa[13]=pump
    aa[14]=base
    aa[15]=fire
    aa[16]=gar
    aa[17]=air

    APPEND BLANK
    REPLACE user WITH hu, pmax WITH aa[4], sub WITH aa[5], design WITH aa[6]
    REPLACE smin WITH aa[8], lmin WITH aa[9], bedmin WITH aa[10]
    REPLACE batmin WITH aa[11], pump WITH aa[13], base WITH aa[14]
    REPLACE fire WITH aa[15], gar WITH aa[16], air WITH aa[17]
ENDIF
mod = 0
SET FORMAT TO fget NOCLEAR
DO WHILE .T.
   DO CASE
      CASE mod = 0 .OR. mod = 4
           READ
      CASE mod = 5
           READ SELECT sub
      CASE mod = 6
           READ SELECT design
      CASE mod = 8
           READ SELECT smin
      CASE mod = 9
           READ SELECT lmin
      CASE mod = 10
           READ SELECT batmin
      CASE mod = 11
           READ SELECT bedmin
      CASE mod = 13
           READ SELECT pump
      CASE mod = 14
           READ SELECT base
      CASE mod = 15
           READ SELECT fire
      CASE mod = 16
           READ SELECT gar
      CASE mod = 17
           READ SELECT air
   ENDCASE

   mod = 0

   DO CASE
      CASE LastKey() = 3                         && <Page Dn>: Pick List
           mod = Row()
           DO CASE
              CASE mod = 5
                   DO psub WITH md
                   SET FORMAT TO fget NOCLEAR
                   SET COLOR TO GR+/R
                   @ 21,0 CLEAR TO 23,79
                   @ 21,3 SAY  "Cursor Keys"
                   @ 21,47 SAY "<Page Down>"
                   @ 22,3 SAY  "<Enter>"
                   @ 22,47 SAY "<Page Up>"
                   @ 23,3 SAY  "?"
                   @ 23,47 SAY "<Esc>"
                   SET COLOR TO W+/R
                   @ 21,15 SAY "= Move between/within fields"
                   @ 21,59 SAY "= Pick List"
                   @ 22,11 SAY "= Next field"
                   @ 22,57 SAY "= Search, View matches"
                   @ 23,5 SAY  "= Help"
                   @ 23,53 SAY "= Quit Search Screen"
                   LOOP

              CASE mod = 6
                   DO pdes WITH 1
                   SET FORMAT TO fget NOCLEAR
                   SET COLOR TO GR+/R
                   @ 21,0 CLEAR TO 23,79
                   @ 21,3 SAY  "Cursor Keys"
                   @ 21,47 SAY "<Page Down>"
                   @ 22,3 SAY  "<Enter>"
                   @ 22,47 SAY "<Page Up>"
                   @ 23,3 SAY  "?"
                   @ 23,47 SAY "<Esc>"
                   SET COLOR TO W+/R
                   @ 21,15 SAY "= Move between/within fields"
                   @ 21,59 SAY "= Pick List"
                   @ 22,11 SAY "= Next field"
                   @ 22,57 SAY "= Search, View matches"
                   @ 23,5 SAY  "= Help"
                   @ 23,53 SAY "= Quit Search Screen"
                   LOOP

              OTHERWISE
                   DO BoxB WITH 5,53,8,72
                   @ 6,55 SAY "No pick list for"
                   @ 7,55 SAY "   this field.  "
                   key = InKey(3)
                   DO cls WITH 5,53,8,72
                   LOOP
           ENDCASE

      CASE LastKey() = 18                         && <Page Up>: Search
           mod = Row()
           DO match WITH md
           SET ORDER TO 1
           SELECT d

      CASE LastKey() = 27                        && <Esc>
           EXIT
   ENDCASE
ENDDO

RETURN